PROGRAM LIBRARY 


□ ECUS NO. 

8-540B 

TITLE 

BPRINT 

AUTHOR 

Richard Rubinstein 

COMPANY 

University of California 

Irvine, California 

DATE 

March 30, 1972 

SOURCE LANGUAGE 

PAL-8 


Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 






\ 


V 






BPRINT 


DECUS Program Library Write-up 


DECUS NO. 8-540B 


BPRINT is a subroutine which enables a user's main program to emboss Braille on a modified ASR33 
teletype A complete one-cell Braille representation of the standard teletype character set is 
used/ and Braille output codes may be modified easily if the user so desires. 


6040 

7325 


/BRAILLE print program 
/RICHARD RUBINSTEIN 
/UNIVERSITY OF CALIFORNIA/ IRVINE 
/NOVEMBER/ 1971 
/ 

/THIS ROUTINE PROVIOES BRAILLE PRINTOUT 
/ON CONSOLE TTY WITH BRAILLE MODIFICATIONS 

/ON ENTRY, AC=ASCII CHAR TO BE BRAILLED 
/ROUTINE PRESERVES MQ BUT NOT THE LINK 
/RETURNS WITH AC«0 
/ 

/PRIOR TO FIRST CALL* TTY MUST BE INITIALIZED WITH A TFL INSTRUCTION 

/tc L R L ) N G 0 E N NERA A ?£ H S C («??L S r,aF C r T 4RE TRANSM ' TT « TO TELETYPE, AS IS. 

/EXTRA <CR)<LF>(LF><LF) SEQUENCES INSERTEO AS NECESSARY IN LONG LINES 

/INTERRUPT is not manipulated 

TFL* 6040 
NL0003* 7325 







00200 

0000 

BPrINT 

, 0 



00201 

0362 


AND 


N177 

00202 

3375 


DCA 


CHAR 

00203 

1375 


tad 


CHAR 

00 20 4 

7 041 


C IA 



00205 

1361 


TAD 


NCR 

00206 

7650 


SNA 

CLA 


00207 

5225 

J 

JMP 


CR 

00210 

137 5 

Bl, 

TAD 


CHAR 

00 211 

136 4 


TAD 


M 40 

00212 

7710 


SPA 

CLA 


00213 

5 22 0 


JMP 


XMIT 

00214 

1375 


TAD 


CHAR 

00215 

1367 


tad 


M137 

00216 

7750 


SPA 

SNA 

CLA 

00217 

5236 


JMP 


B2 

00 22 0 

1375 

X MI Ti 

TAD 


CHAR 

00221 

4303 


JMS 


Tl 

00 22 2 

5 60 0 


JMP 

I 

BPRINT 

00 22 3 

136 3 

X CR , 

TAD 


NLF 

00224 

4303 


JMS 


j 1 

00 22 5 

1361 

CR, 

TAD 


NCR 

00226 

4303 


JMS 


Tl 

0022 7 

1363 


tad 


NLF 

00230 

4303 


JMS 


Tl 

00 231 

136 3 


TAD 


NLF 

00232 

4303 


JMS 


Tl 

00233 

1365 


TAD 


MD72 

00234 

3376 


DCA 


NCHAR 

00235 

5 60 0 


JMP 

I 

BPR JNT 



/CHAR 

IN RANGE--XLATE IT 

00236 

1375 

B2, 

TAD 


CHAR 

00237 

1364 


tad 


M 40 

00240 

0366 


AND 


N77 

00 241 

7110 


CLL 

RAR 


00242 

1372 


TAD 


ATTAB 

00243 

3374 


DCA 


TEMP 

00244 

1774 


tad 

I 

temp 

00245 

7 43 0 


S2L 



00246 

5252 


JMP 


B3 

0024 7 

7012 


RTR 



00250 

7 012 


rtr 



00251 

7 012 


RTR 



00252 

0366 

B3, 

AND 


N77 

00253 

3375 


DCA 


CHAR 

00254 

1375 


tad 


char 

00 25 5 

7 012 


RTR 



00 25 6 

7 010 


RAR 



00 25 7 

0 371 


and 


N 7 

00260 

1373 


TAD 


ACTAB 

00261 

3374 


DCA 


TEMP 

00262 

1774 


TAD 

I 

temp 

00 26 3 

4303 


JMS 


Tl 

00 26 4 

137 5 


TAD 


CHAR 

00265 

0371 


AND 


N 7 


/ELIMINATE PARITY 
/SAVE CH» A C«* 0 
/GET CHAR 

/IS IT (CR)? 


/GET CHAR 
/CHAR < 40? 

/ YES® -X MJ T IT 
/NO«®GET CHAR 
/CHAR > 137? 

/NO — TRANSLATE IT 

/GET CHAR 
/XMIT IT 
/RETURN 

/XMIT (LF) THEN (CR) SEQUENCE 
/XMIT (CR) SEQUENCE 


/RESET LINE CHAR COUNT 
/RETURN 

/GET CH 
/SUBTRACT 40 
/TRIM TO 6 BITS 
/TABLE DISPLACEMENT 


/L= 0 => LEFT HALF 
/RIGHT HALF*-OK 
/GET LEFT HALF 


/ISOLATE RESULT 
/SAVE 

/TABLE ENTRY 


/1ST CHAR 
/CTAB AODR 


/2ND CHAR 
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f 


00266 

1373 

00267 

3374 

00270 

1774 

00271 

4303 

00272 

732 5 

00273 

1376 

00274 

3376 

00275 

1376 

00276 

7650 

00 27 7 

5 22 3 

00300 

1370 

00 301 

4 30 3 

00302 

5600 


/ 

/ 

/ 


TAD 


ACTAB 

OCA 


temp 

TAD 

I 

TEMP 

J MS 


T1 

NL0003 


TAD 


NCHAR 

DCA 


NCHAR 

tad 


NCHAR 

SNA 

CLA 


JMP 


XCR 

tad 


NSP 

JMS 


T1 

JMP 

I 

BPRI NT 


N30 30 3 

0000 Tl, 

0 

r 0030 4 

6041 

TSF 

00305 

5304 

JMP ,-1 

00 30 6 

6 04 6 

TLS 

00307 

7200 

CLA 

00 310 

5 70 3 

^ . * 

J MP I T1 




/TRANSLATION TABLE 
/AS READ, VALUE BRAILLE 


00 311 

0075 TTAB# 

0 07 5 

00312 

0217 

0217 

00 313 

4 33 5 

4 33 5 

00314 

4710 

4710 

00 315 

7 337 

7 33 7 

00316 

0415 

0415 

00 317 

0111 

0111 

00320 

0514 

0514 

00 321 

132 0 

132 0 

00322 

3022 

3022 

00 32 3 

2 321 

2 321 

00324 

3233 

3233 

00 32 5 

3112 

3112 

00326 

0603 

0603 

00 32 7 

6163 

6163 

00330 

4 516 

4 516 

00 331 

6 54 0 

6 54 0 

00332 

6044 

6044 

00 33 3 

4642 

4 64 2 

00334 

6466 

6466 

00335 

6224 

6224 

00336 

2650 

2650 

00337 

7054 

7054 

00340 

5 65 2 

5 65 2 

00 341 

7 47 6 

7 47 6 

00342 

7234 

7234 

00 34 3 

3 651 

3 651 

00 34 4 

7127 

712 7 

00 34 5 

5 55 7 

5 55 7 

00346 

5325 

5325 

00347 

4167 

4167 

00350 

0777 

0777 


/INCR LINE CHAR COUNT BY 3 


/LINE FULL? 

/ YES- -GEN (LF)(CR)(LF)(LF) 
/NO=»PROCEEO 
/ XM IT (SPACE) 

/RETURN 


/TYPE ONE CHAR 
/TTY PTR RE AOY? 
/NO- = WA IT 
/XM IT CHAR 

/RETURN 


"BITS#" FROM TOP# 421 
/(SPACE), I 
/"## 

/(DOLLAR),% 

/&, * 

/(, > 

/ *»♦ 

/ (COMMA) # - 

/../ 

/ 0#1 
/2,3 
/ 4, 5 
/6, 7 
/ 8# 9 
/:. J 
/ <# a 

/>* ? 

/», A 
/B, C 
/D.E 
/F, G 
/H, I 
/J# K 
/L*M 
/N, 0 
/P# Q 
/R#S 
/T# U 
/V, W 
/X, Y 
/2, C 
/\» D 
/♦ # *• 
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00351 
00352 
00 35 3 
0035 4 
00 35 5 
00356 
00 35 7 
00360 

00 361 
00 36 2 
00363 
00364 
00365 
00 36 6 
00367 
00370 
00371 
00372 
00373 


* 


/ 


/BRAILLE EQUIVALENT CHARACTERS 


0240 

CTAB, 

240 

/(SPACE 

) 

0 

0305 


305 

/E 


1 

0 316 


316 

/N 


2 

0301 


3 01 

/A 


3 

0 314 


314 

/L 


4 

0 30 3 


303 

/C 


5 

0 30 7 


307 

/G 


6 

0310 


310 

/H 


7 

0015 

NCR. 

15 

/ <CR> , 

PARITY 

trimmed 

017 7 

N177, 

177 




0212 

NLF > 

212 

/ ( lf ) 



7740 

M40, 

-40 




7670 

MD72» 

-110 

/RESET 

VAL FOR 

NCHAR s-72 (10) 

0077 

N77 , 

77 




7641 

M137, 

-137 



• 

0240 

NSP, 

240 

/ASCI I 

SPACE 

0007 

N7, 

7 




0311 

ATTAB, 

T TAB 




0351 

ACTAB, 

CTAB 




0374 

TEMP* 

f 




0375 

CHAR® 

. *1 




0376 

N CHAR* 

.♦2 





$ 
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ACTAB 

0373 

ATTAB 

0372 

BPRI NT 

0200 

B1 

0210 

B2 

0 23 6 

B3 

0252 

char 

0375 

CR 

0225 

CTAB 

0351 

MD 72 

0365 

Ml 37 

0 36 7 

M40 

0364 

NCHAK 

0376 

NCR 

0361 

NLF 

0 36 3 

NL 0003 

7 32 5 

NS P 

0370 

N177 

0362 

N7 

0 37 1 

N77 

0366 

TEMP 

037 4 

TFL 

6040 

TTAB 

0311 

T1 

0 30 3 

XCR 

0 22 3 

XM IT 

0 22 0 
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